home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / ktekdockv1.dxpack / {5CA47B49-3138-41E4-A0D8-EAB58060E931}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-08-24  |  1KB  |  25 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA['Called when the script is executed
  5. Sub Object_OnScriptEnter
  6.     'Object.SetTimer 1, 1000
  7. End Sub
  8.  
  9. 'Called when the script is terminated
  10. Sub Object_OnScriptExit
  11.     'Object.KillTimer 1
  12. End Sub
  13.  
  14. Sub Object_OnTimer1
  15.     object.text=DesktopX.ScriptObject("wmp").Control.Status
  16.     If Left(Object.Text, 7) = "Playing" Then
  17.             DesktopX.Object("wmp_lbl_pos").Text = DesktopX.ScriptObject("wmp").Control.Controls.currentPositionString & " / " & DesktopX.ScriptObject("wmp").Control.currentmedia.durationstring
  18.     End If
  19.     'Control.status
  20.     'If Left(Object.Text, 7) = "Playing" Then
  21.             'DesktopX.Object("wmp_lbl_pos").Text = DesktopX.ScriptObject("wmp").Control.Controls.currentPositionString & " / " & DesktopX.ScriptObject("wmp").Control.currentmedia.durationstring
  22. '    End If
  23. End Sub
  24. ]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>101</EditorLeft><EditorTop>410</EditorTop><EditorRight>1142</EditorRight><EditorBottom>915</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  25.